home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 8 / Tiger_Disk_008_19xx_Tiger-Crew-Disk_de_Side_B.d64 / joewi-text 64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  454 lines
  1. 25 a=fre(0):clr:gosub5200:open5,8,15:poke788,peek(788)+3:na=0:j=0:e=0
  2. 30 ft$=".....([194]ezeichnung)....":v$="....([206]ame)...."
  3. 35 p$="...([211]trasse)..."
  4. 40 se$=".([208][204][218] + [207]rt).":tf$="[212]el.: ...../...."
  5. 45 bv$="...([194]ankverbind.)...":bz$="[194][204][218] ... ... ..":kt$="[203]to.-[206]r. ........."
  6. 60 ze$="[212]extverarbeitung              [202][207][197][215][201]-[211][207][198][212][146]"
  7. 80 dimte$(100):poke54296,15
  8. 100 poke53280,2:poke53281,2:poke646,1:gosub5300
  9. 130 gosub2300:printchr$(147);chr$(14);ze$
  10. 160 print:print"  1 ->[146] [212]ext eingeben
  11. 190 [153]:[153]"  2 ->wait (NULL)ext aendern
  12. 220 print:print"  3 ->[146] [212]ext loeschen
  13. 250 [153]:[153]"  4 ->wait (NULL)extausgabe peekildschirm
  14. 280 print:print"  5 ->[146] [212]extausgabe [196]rucker
  15. 310 [153]:[153]"  6 ->wait str$iskettenmenue
  16. 320 print:print"  7 ->[146] [198]arbwechsel
  17. 330 [153]:[153]"  8 ->wait atnnweisungen
  18. 340 print:print"  9 ->[146] [208]rogramm [194]eenden
  19. 400 [153]:[153]:[153]:[153][163]15)"right$hre (NULL)ahl
  20. 490 getwa$:ifwa$=""then490
  21. 500 gosub2300
  22. 520 wa=val(wa$)
  23. 550 ifwa<1orwa>9then490
  24. 580 onwagoto600,900,1600,1300,1500,4100,2000,3000,2200
  25. 600 gosub2300:printchr$(147);ze$
  26. 605 print"   [212]ext weiterschreiben [198]1 sonst ^"
  27. 610 getwa$:ifwa$=""then610
  28. 615 ifwa$=chr$(133)thenfori=1to100:ifte$(zn)="**"thente$(zn)="":next:goto630
  29. 620 goto630
  30. 625 goto610
  31. 630 input"    [193]b welcher [218]eilennummer ->    ^[157][157][157]";zn$:ifzn$=chr$(94)then130
  32. 635 zn=int(val(zn$)):ifzn<1orzn>99thenprint"[145][145][145]":goto630
  33. 640 te$(me)=""
  34. 645 print
  35. 650 printzn;": ";
  36. 655 az=0
  37. 660 geteg$
  38. 665 printchr$(185);chr$(157);
  39. 670 ifeg$=""then660
  40. 675 ifeg$=chr$(29)oreg$=chr$(17)oreg$=chr$(145)then660
  41. 678 ifeg$=chr$(157)oreg$=chr$(19)oreg$=chr$(34)then660
  42. 680 ifeg$<>chr$(20)then730
  43. 685 iflen(te$(zn))<1then660
  44. 690 print" ";chr$(157);
  45. 700 printchr$(157);" ";chr$(157);
  46. 710 te$(zn)=left$(te$(zn),len(te$(zn))-1)
  47. 720 goto660
  48. 730 ifeg$<>chr$(94)then770
  49. 740 iflen(te$(zn))<1then830
  50. 750 goto660
  51. 760 ifaz=0thente$(zn)="":az=1
  52. 770 print" ";chr$(157);eg$;
  53. 780 ifeg$=chr$(13)thenzn=zn+1:goto810
  54. 790 te$(zn)=te$(zn)+eg$
  55. 800 iflen(te$(zn))>64thengosub2300
  56. 805 iflen(te$(zn))=70theneg$=chr$(13):zn=zn+1
  57. 810 ifzn=100then830
  58. 815 ifeg$=chr$(13)then650
  59. 820 goto660
  60. 830 print" ";chr$(157);
  61. 840 te$(zn)="**":me=zn
  62. 850 gosub2300:goto130
  63. 900 gosub2300:printchr$(147):poke211,0:poke214,24:sys58732
  64. 905 print"[198]1[146]=[204]oeschen [195]usor [210]ight[146]=[193]lten [212]ext [197]inf.";chr$(19);ze$
  65. 910 input"   [215]elche [218]eilennummer ->   ^[157][157][157]";zn$
  66. 912 ifr=1thenchr$(13)
  67. 915 ifzn$=chr$(94)then130
  68. 920 zn=int(val(zn$)):ifzn<1orzn>99thenprint"[145][145][145]":goto910
  69. 930 print
  70. 940 printzn;": ";
  71. 950 printte$(zn)
  72. 960 print
  73. 965 printzn;": ";
  74. 970 nt$=""
  75. 990 geteg$
  76. 1000 printchr$(185);chr$(157);
  77. 1005 ifeg$=chr$(b7)oreg$=chr$(19)oreg$=chr$(145)oreg$=chr$(157)oreg$=chr$(34)then990
  78. 1010 ifeg$=""then990
  79. 1015 ifeg$=chr$(133)thente$(zn)="":goto900
  80. 1020 ifeg$<>chr$(20)then1080
  81. 1030 iflen(nt$)<1then990
  82. 1040 print" ";chr$(157);
  83. 1050 printchr$(157);" ";chr$(157);
  84. 1060 nt$=left$(nt$,len(nt$)-1)
  85. 1070 goto990
  86. 1080 ifeg$<>chr$(29)then1110
  87. 1090 iflen(nt$)<=len(te$(zn))theneg$=mid$(te$(zn),len(nt$)+1,1):goto1150
  88. 1100 goto990
  89. 1110 ifeg$<>chr$(94)then1150
  90. 1120 iflen(nt$)<1then130
  91. 1130 goto990
  92. 1140 ifaz=0thennt$="":az=1
  93. 1150 print" ";chr$(157);eg$;
  94. 1160 ifeg$=chr$(13)then1200
  95. 1170 nt$=nt$+eg$
  96. 1175 iflen(nt$)>64thengosub2300
  97. 1180 iflen(nt$)=70then:goto1230
  98. 1190 goto990
  99. 1200 iflen(nt$)<1thennt$=te$(zn):printnt$
  100. 1210 te$(zn)=nt$
  101. 1220 gosub2300:goto900
  102. 1230 print:print" [205]aximal 70 [218]eichen [146]"
  103. 1235 print:print" [215]enn [206]eue [218]eile [207][203] ^ [196]ruecken "      "
  104. 1240 [153]" (NULL)enn nochmals atnendern asc1 str$ruecken wait"
  105. 1245 [161]wa$:[139]wa$[178]""[167]1245
  106. 1250 [139]wa$[178][199](94)[167]te$(zn)[178]"":te$(zn)[178]te$(zn)[170]nt$:[137]900
  107. 1255 [139]wa$[178][199](133)[167][153]"":[137]910
  108. 1260 [137]1245
  109. 1300 [141]2300:[153][199](147)
  110. 1310 zn[178]1
  111. 1320 [139][200](te$(zn),2)[178]"**"[167]1380
  112. 1330 [153]zn;": ";
  113. 1340 [153]te$(zn)
  114. 1350 [141]1420
  115. 1360 zn[178]zn[170]1:[139]zn[178]100[167]1380
  116. 1370 [137]1320
  117. 1380 [153]
  118. 1390 [153][163]5)"->  str$val(NULL)close(NULL)val(NULL)(NULL)closeright$(NULL)(NULL)close(NULL)(NULL)closeval(NULL)str$val wait <-"
  119. 1400 [161]eg$:[139]eg$[178]""[167]1400
  120. 1405 [139]eg$[178][199](94)[167]130
  121. 1410 [137]1400
  122. 1420 [161]eg$
  123. 1430 [139]eg$[179][177][199](94)[167][142]
  124. 1440 [161]eg$
  125. 1450 [139]eg$[179][177]chr(94)[167]1440
  126. 1460 [141]2300:[142]
  127. 1500 [141]2300:[141]2400:dn%[178]4:[141]5000
  128. 1505 dn%[178]4:[141]5000
  129. 1508 [153][199](147)[178]ze$:[153]:[153][163]5)"-> (NULL)ext wird atnusgedrucktwait <-"
  130. 1510 [159]4,4,7
  131. 1515 zn[178]1
  132. 1520 [139][200](te$(zn),2)[178]"**"[167]1545
  133. 1525 [152]4,[199](16)"03"te$(zn)
  134. 1530 zn[178]zn[170]1
  135. 1535 [139]zn[178]100[167]1545
  136. 1540 [137]1520
  137. 1545 [139]ne[178]1[167][141]2980:[160]4:[141]1550:[137]130
  138. 1550 [153][163]3):[133]"(NULL)och ein atnusdruck";wa$
  139. 1560 [139]wasa$[179][177]"j"[175]wa$[179][177]"n"[167][153]"onon":[137]1555
  140. 1565 [139]wa$[178]"n"[167][160]4:[137]5360
  141. 1570 [153]
  142. 1575 [133]"(NULL)ollen str$aten geaendert werden";wa$
  143. 1580 [139]wa$[179][177]"j"[175]wa$[179][177]"n"[167][153]"onon":[137]1575
  144. 1585 [139]wa$[178]"n"[167][160]4:[137]2800
  145. 1590 [139]wa$[178]"j"[167][160]4:[137]2400
  146. 1600 [141]2300:[153][199](147);ze$:[153]
  147. 1605 [153][163]3)"(NULL)val(NULL)(NULL)(NULL)(NULL)val(NULL)lenleft$val(NULL)wait"
  148. 1610 [153]:[153][163]3)"str$en im (NULL)peicher befindliche (NULL)ext ":[153]
  149. 1615 [153][163]3)"durch str$ruecken von asc1 (NULL)oeschen.":[153]
  150. 1620 [153]:[153][163]9)" peekei right$rrtum ^ str$ruecken wait"
  151. 1625 [161]wa$:[139]wa$[178]""[167]1625
  152. 1630 [139]wa$[179][177][199](94)[175]wa$[179][177][199](133)[167]1625
  153. 1635 [139]wa$[178][199](94)[167]130
  154. 1640 [139]wa$[178][199](133)[167]1650
  155. 1645 [137]1625
  156. 1650 [153]:[153][163]19)"(NULL)ext wird chr$eloescht"
  157. 1655 [129]an[178]1[164]100
  158. 1660 te$(an)[178]""
  159. 1670 [130]:[153]:[153][163]15)"ascval(NULL)(NULL)right$chr$":[129]i[178]0[164]700:[130]
  160. 1680 [137]130
  161. 1700 [141]2300:dn%[178]8:[141]5000:[139]dr%[178]1[167][141]5140
  162. 1705 [153][199](147);ze$
  163. 1710 [153][163]5)"  (NULL)val(NULL)(NULL) (NULL)(NULL)valright$lenleft$val(NULL)(NULL)closeclose":[153]:[153][163]5)"(NULL)extname ->   ^";
  164. 1720 [133]dn$:[139]dn$[178][199](94)[167]1400
  165. 1730 [159]1,8,2,"@:"[170]dn$[170]",s,w":[141]4000:[129]zn[178]1[164]100
  166. 1750 [139]te$(zn)[178]""[167]te$(zn)[178][199](13)
  167. 1760 [152]1,te$(zn)
  168. 1770 [130]:[152]1,[199](13):[160]1:[141]2300:[141]4000:[137]4100
  169. 1800 [141]2300:dn%[178]8:[141]5000:[139]dr%[178]1[167][141]5140
  170. 1805 [153][199](147);ze$
  171. 1810 [153][163]5)"  (NULL)val(NULL)(NULL)close(NULL)atnstr$val(NULL)  ":[153]:[153][163]5)"(NULL)extname ->   ^cmdcmdcmd";
  172. 1820 [133]dn$:[139]dn$[178][199](94)[167]4100
  173. 1830 [159]1,8,2,dn$[170]",s,r":[141]4000:[129]zn[178]1[164]100
  174. 1850 te$[178]""
  175. 1860 [161]#1,eg$
  176. 1870 te$[178]te$[170]eg$
  177. 1880 [139]eg$[178][199](13)[176]eg$[178]""[167]1900
  178. 1890 [137]1860
  179. 1900 te$(zn)[178]te$:te$(zn)[178][200](te$(zn),[195](te$(zn))[171]1)
  180. 1910 [130]:[160]1:[141]2300:[137]130
  181. 2000 [141]2300:[153][199](147);ze$
  182. 2010 [153]:[153]:[153]"  asc1 ->wait left$intergrundfarbe
  183. 2020 print:print:print"  [198]3 ->[146] [210]ahmenfarbe
  184. 2030 [153]:[153]:[153]"  asc5 ->wait (NULL)chriftfarbe
  185. 2040 print:print:print"  [198]7 ->[146] [205]enue
  186. 2050 [161]fa$:[139]fa$[178]""[167]2050
  187. 2060 [139]fa$[178][199](133)[167]hf[178]hf[170]1:[151]53281,hf:[139]hf[177]14[167]hf[178][171]1
  188. 2070 [139]fa$[178][199](134)[167]rf[178]rf[170]1:[151]53280,rf:[139]rf[177]14[167]rf[178][171]1
  189. 2080 [139]fa$[178][199](135)[167]sf[178]sf[170]1:[151]646,sf:[153]"(NULL)chriftfarbe"
  190. 2085 [139]sf[177]14[167]sf[178][171]1
  191. 2090 [139]fa$[178][199](136)[167][141]2300:[137]130
  192. 2100 [137]2050
  193. 2200 [141]2300:[153][199](147);ze$:[153]
  194. 2210 [153]:[153]"peekitte bestaetigen (NULL)ie den endgueltigen
  195. 2220 print:print"[208]rogrammabbruch durch [196]ruecken von [198]1 !"
  196. 2230 print:printtab(8)" [194]ei [201]rrtum ^ druecken [146]"
  197. 2240 getwa$:ifwa$=""then2240
  198. 2250 ifwa$<>chr$(94)andwa$<>chr$(133)then2240
  199. 2260 ifwa$=chr$(94)then130
  200. 2270 sys65129
  201. 2280 goto2240
  202. 2300 si=54272:pokesi+5,32:pokesi+6,15*16:pokesi+24,15
  203. 2310 pokesi,59:pokesi+1,139:pokesi+4,33
  204. 2320 fori=1to100:next:pokesi+4,0:return
  205. 2400 gosub2300:printchr$(147);ze$
  206. 2405 print:print"[211]oll der [193]bsender ausgedruckt werden? ":print
  207. 2410 print" [194]ei [201]rrtum ^ druecken"
  208. 2415 geten$:ifen$=""then2415
  209. 2420 ifen$<>chr$(74)anden$<>chr$(78)anden$<>chr$(94)then2415
  210. 2425 ifen$="^"then130
  211. 2430 ifen$="j"thenna=0:goto2445
  212. 2435 ifen$="n"thenna=1:goto2445
  213. 2440 goto2415
  214. 2445 gosub2300:printchr$(147);ze$
  215. 2450 print:print"[205]oechten [211]ie weitere [196]aten eingeben ? ":print
  216. 2455 geten$:ifen$=""then2455
  217. 2460 ifen$<>chr$(74)anden$<>chr$(78)then2455
  218. 2465 ifen$="j"thenj=2:goto2480
  219. 2470 ifen$="n"andna=1andj=0then1505
  220. 2472 ifen$="n"andj=2orj=0then2800
  221. 2475 goto2455
  222. 2480 print" [210][197][212][213][210][206][160][215][197][206][206][160][203][197][201][206][197][160][197][201][206][199][193][194][197] ":print
  223. 2485 input"[193]nrede         ";a$
  224. 2490 input"[214]orname        ";v1$
  225. 2495 input"[206]ame           ";n1$
  226. 2500 input"[211]trasse u. [206]r. ";s1$
  227. 2510 input"[208][204][218] u. [207]rt     ";p1$
  228. 2515 print
  229. 2520 print:input"[196]atum          ";d$
  230. 2525 print:input"[194]etreff        ";bt$:iflen(bt$)>0thenbt$="[194]etr.: "+bt$
  231. 2526 print"[197]ingaben korrekt ?"
  232. 2527 geteg$:ifeg$<>"j"andeg$<>"n"then2527
  233. 2528 ifeg$="n"thenprint"":goto2480
  234. 2530 gosub2300:printchr$(147);ze$:print
  235. 2535 print"[215]aehlen [211]ie nun die [193]nrede aus :":print
  236. 2540 print" 1 ->[146] [211]ehr geehrte [196]amen und [200]erren,":print
  237. 2545 print" 2 ->[146] [211]ehr geehrte [198]rau [164][164][164][164][164][164][164][164][164][164][164][164]":print
  238. 2550 print" 3 ->[146] [211]ehr geehrter [200]err [164][164][164][164][164][164][164][164][164][164][164]":print
  239. 2555 print" 4 ->[146] [197]igene [197]ingaben
  240. 2560 [161]wa$:[139]wa$[178]""[167]2560
  241. 2565 wa[178][197](wa$):[139]wa[179]1[176]wa[177]4[167]2560
  242. 2570 [145]wa[137]2630,2640,2650,2580
  243. 2575 [137]2560
  244. 2580 [153]:[153]"(NULL)amen selber eingeben,(NULL)omma wird angeh.
  245. 2585 print:input"[201]hre [197]ingabe ->";as$:as$=as$+",":goto2670
  246. 2630 as$="[211]ehr geehrte [196]amen und [200]erren,":goto2670
  247. 2640 as$="[211]ehr geehrte [198]rau "+n1$+",":goto2670
  248. 2650 as$="[211]ehr geehrter [200]err "+n1$+",":goto2670
  249. 2670 gosub2300:print:print"[211]chlusswort eingeben "
  250. 2680 gets$:ifs$<>"j"ands$<>"n"then2680
  251. 2685 ifs$="j"thenne=1:goto2700
  252. 2690 ifs$="n"thenne=0:goto2800
  253. 2695 goto2680
  254. 2700 printchr$(147);ze$:print:print"  1 ->[146] mit freundlichen [199]ruessen:
  255. 2705 [153]:[153]"  2 ->wait (NULL)it freundlichen chr$ruessen:
  256. 2710 print:print"  3 ->[146] [200]ochachtungsvoll:
  257. 2715 [153]:[153]"  4 ->wait chr$ezeichnet:
  258. 2720 print:print"  5 ->[146] [197]igene [197]ingabe
  259. 2725 [161]wa$:[139]wa$[179]"1"[176]wa$[177]"5"[167]2725
  260. 2730 wa[178][197](wa$):[145]wa[137]2760,2770,2775,2780,2740
  261. 2735 [137]2725
  262. 2740 [153]:[153]"  str$oppelpunkt wird nachgestellt"
  263. 2750 [153]:[133]"  right$hre valingabe ->";sh$:sh$[178]sh$[170]":":[137]2800
  264. 2760 sh$[178]"mit freundlichen chr$ruessen:":[137]2800
  265. 2770 sh$[178]"(NULL)it freundlichen chr$ruessen:":[137]2800
  266. 2775 sh$[178]"left$ochachtungsvoll:":[137]2800
  267. 2780 sh$[178]"chr$ezeichnet:":[137]2800
  268. 2800 dn%[178]4:[141]5000:[159]4,4,7:[139]na[178]1[167]2850
  269. 2805 [153][199](147);ze$:[153]:[153][163]5)"-> (NULL)val(NULL)(NULL)close(NULL)right$(NULL)str$closeatn(NULL)(NULL)chr$valstr$(NULL)(NULL)len(NULL)(NULL)wait <-"
  270. 2810 [152]4:[152]4:[152]4,[199](14)[199](16)"03"v$[199](15)[199](16)"55"p$
  271. 2820 [152]4,[199](16)"55"se$
  272. 2830 [152]4,[199](16)"03"ft$[199](16)"55"tf$
  273. 2832 [152]4,[199](13)[199](16)"55"bv$
  274. 2834 [152]4,[199](16)"55"bz$
  275. 2836 [152]4,[199](16)"55"kt$
  276. 2840 [152]4,[199](13)[199](16)"55"d$
  277. 2850 [139]j[178]2[167][137]2900
  278. 2860 [129]i[178]1[164]4:[152]4,[199](13):[130]i
  279. 2870 [160]4:[137]1510
  280. 2900 [152]4,[199](13)[199](13)
  281. 2910 [152]4,[199](16)"03"a$
  282. 2920 [152]4,[199](16)"03"v1$" "n1$
  283. 2930 [152]4,[199](16)"03"s1$
  284. 2940 [152]4,[199](13)[199](16)"03"p1$
  285. 2950 [152]4,[199](13)[199](13)[199](13)[199](16)"03"bt$
  286. 2960 [152]4,[199](13)[199](13)[199](16)"03"as$[199](13)
  287. 2965 [160]4:[137]1510
  288. 2980 [152]4,[199](13)[199](13)[199](16)"03"sh$:[152]4:[152]4,[199](16)"03"v$
  289. 2990 [142]
  290. 3000 [141]2300:[153][199](147);ze$:[153]
  291. 3010 [153]"  left$val(NULL)(NULL) bei:":[153]
  292. 3020 [153]:[153]"   1 ->wait (NULL)exteingabe
  293. 3030 print:print"   2 ->[146] [212]exteinfuegen
  294. 3040 [153]:[153]"   3 ->wait (NULL)extaendern
  295. 3050 print:print"   4 ->[146] [212]extloeschen"
  296. 3060 print:print:printtab(15)"[201]hre [215]ahl"
  297. 3070 getwa$:ifwa$=""then3070
  298. 3080 wa=val(wa$)
  299. 3090 ifwa<1orwa>4then3070
  300. 3100 onwagoto3120,3280,3410,3590
  301. 3110 goto3070
  302. 3120 gosub2300:printchr$(147);ze$:print
  303. 3130 print"   [212]exteingabe: [146]"
  304. 3140 print:print"  [197]s stehen ihnen 99 [218]eilen mit maximal
  305. 3150 [153]"  70 (NULL)eichen zur (NULL)erfuegung. (NULL)euer (NULL)ext
  306. 3160 print"  sollte darum immer mit [218]eilennummer 1
  307. 3170 [153]"  beginnen. ascehler koennen wie gewohnt
  308. 3180 print"  mit der [201]nst/[196]el [212]aste sofort korri-
  309. 3190 [153]"  giert werden.
  310. 3200 print"  [205]oechten [211]ie die [197]ingabe beenden,
  311. 3210 [153]"  geben (NULL)ie als erstes (NULL)eichen in einer
  312. 3220 print"  neuen [218]eile '^'  ein und [211]ie gelangen
  313. 3230 [153]"  wieder ins left$auptmenue.
  314. 3240 print"  [212]onsingnal beginnt bei [193]nbruch der
  315. 3250 [153]"  letzten fuenf (NULL)eichen. atnutomatisches
  316. 3260 print"  [210]eturn bei [218]eilenende.
  317. 3270 [137]3780
  318. 3280 [141]2300:[153][199](147);ze$:[153]
  319. 3290 [153]"  (NULL)exteinfuegen: wait
  320. 3300 print:print"  [215]aehlen [211]ie [208]unkt 2 [212]extaendern.
  321. 3310 [153]"  (NULL)ext kann nur dann eingefuegt werden,
  322. 3320 print"  wenn eine [218]eile geloescht wird oder
  323. 3330 [153]"  sich zwischen den (NULL)eilen noch eine
  324. 3340 print"  befindet, die vorher mit [210]eturn ueber-
  325. 3350 [153]"on  sprungen wurde.
  326. 3360 print"  [199]eben [211]ie die [206]ummer der noch freien
  327. 3370 [153]"  oder vorher geloeschten (NULL)eile ein.
  328. 3380 print"  [197]ingaben im [205]odus 2 [212]extaendern vor-
  329. 3390 [153]"  nehmen und mit (NULL)eturn abschliessen.
  330. 3400 gosub3780
  331. 3410 gosub2300:printchr$(147);ze$:print
  332. 3415 print"   [212]extaendern: [146]":print
  333. 3420 print:print"  [199]eben [211]ie im [208]rogrammodus zwei die
  334. 3430 [153]"  (NULL)ummer der (NULL)eile an, welche geaendert
  335. 3440 print"  werden soll. [196]ie [218]eile wird auf dem
  336. 3450 [153]"  peekildschirm ausgegeben und kann darun-
  337. 3460 print"  ter neu eingegeben werden.
  338. 3470 [153]"  str$ruecken (NULL)ie die lenusortaste 'rechts',
  339. 3480 print"  so wird der alte,sich an der gleichen
  340. 3490 [153]"  (NULL)telle befindliche (NULL)ext in die neue
  341. 3500 print"  [218]eile uebernommen. [196]ruecken [211]ie [198]1,
  342. 3510 [153]"  so wird die gesamte (NULL)eile geloescht.
  343. 3520 print"  [215]urden 70 [218]eichen eingegeben,ist eine
  344. 3530 [153]"  weitere valingabe nicht mehr moeglich.
  345. 3540 print"  [196]ruecken [211]ie nun '^', so wird die
  346. 3550 [153]"  (NULL)eile so uebernommen. str$ruecken (NULL)ie
  347. 3560 print"  '[198]1' kann die [218]eile neu eingegeben
  348. 3570 [153]"  werden.
  349. 3580 goto3780
  350. 3590 gosub2300:printchr$(147);ze$:print
  351. 3600 print"  [212]extloeschen: [146]":print
  352. 3610 print"  [197]inzelne [218]eilen koennen geloescht
  353. 3620 [153]"  werden, indem (NULL)ie (NULL)unkt 2 (NULL)extaendern
  354. 3630 print"  waehlen:
  355. 3670 [153]"  chr$eben (NULL)ie die (NULL)ummer der (NULL)eile ein,
  356. 3680 print"  welche [211]ie loeschen moechten. [215]enn
  357. 3690 [153]"  diese angezeigt wird, druecken (NULL)ie
  358. 3700 print"  '[198]1'. [211]oll die [218]eile neu geschrieben
  359. 3710 [153]"  werden, so ebenfalls im (NULL)odus 2,nicht
  360. 3720 print"  im [208]rogrammteil 1.
  361. 3730 [153]"  (NULL)ollen (NULL)ie den gesamten (NULL)ext loeschen,
  362. 3740 print"[145]  waehlen [211]ie [208]unkt 3 und druecken [198]1.
  363. 3750 [153]"  str$er (NULL)ext wird geloescht und (NULL)ie
  364. 3760 print"  koennen einen neuen [212]ext eingeben.
  365. 3770 [137]3780
  366. 3780 [151]211,12:[151]214,22:[158]58732:[153]"-> (NULL)astewait <-"
  367. 3790 [151]198,0:[146]198,1:[137]130
  368. 4000 :
  369. 4020 [132]5,w,x$,y,z:[139]w[178]0[167][142]
  370. 4025 [153]:[153]:[153][163]5)w,x$,y;z
  371. 4030 [153]:[153]:[153][163]12)"-> (NULL)atn(NULL)(NULL)val wait <-":[151]198,0:[146]198,1
  372. 4040 [160]1
  373. 4100 [141]2300:[153][199](147);ze$:[153]
  374. 4110 [153]:[153]"   1 ->wait  (NULL)ext (NULL)peichern
  375. 4120 print:print"   2 ->[146]  [212]ext [204]aden
  376. 4130 [153]:[153]"   3 ->wait  (NULL)extdatei (NULL)oeschen
  377. 4140 print:print"   4 ->[146]  [196]atei umbenennen
  378. 4150 [153]:[153]"   5 ->wait  str$iskette ascormatieren
  379. 4160 print:print"   6 ->[146]  [196]irectory [204]esen
  380. 4170 [153]:[153]"   7 ->wait  left$auptmenue
  381. 4180 print:print:printtab(15)"  [201]her [215]ahl
  382. 4200 [161]wa$:[139]wa$[178]""[167]4200
  383. 4210 [139]wa$[179][199](49)[176]wa$[177][199](55)[167]4200
  384. 4220 wa[178][197](wa$)
  385. 4230 [145]wa[137]1700,1800,4300,4400,4500,4600,130
  386. 4240 [137]4200
  387. 4300 [141]2300:dn%[178]8:[141]5000:[139]dr%[178]1[167][141]5140
  388. 4305 [153][199](147);ze$
  389. 4310 [153][163]3)"  (NULL)val(NULL)(NULL)close(NULL)(NULL)val(NULL)lenleft$val(NULL)  ":[153]:[153]
  390. 4320 [153][163]3):[133]"(NULL)extname ->    ^cmdcmdcmd";ld$:[139]ld$[178][199](94)[167]4100
  391. 4330 dn$[178]"s0:"[170]ld$
  392. 4340 [153]:[153][163]3)ld$" wird geloescht  "
  393. 4350 [159]1,8,15;prind#1,dn$:[160]1
  394. 4355 [141]4000:[137]4100
  395. 4400 [141]2300:dn%[178]8:[141]5000:[139]dr%[178]1[167][141]5140
  396. 4405 [153][199](147);ze$
  397. 4410 [153][163]3)"str$atn(NULL)valright$close(NULL)(NULL)peekval(NULL)val(NULL)(NULL)val(NULL)  ":[153]
  398. 4420 [153][163]3)"atnlter str$ateiname ->  ^cmdcmdcmd";
  399. 4430 [133]ad$:[139]ad[178][199](94)[167]4100
  400. 4450 [153]:[153][163]3)"(NULL)euer str$ateiname";
  401. 4460 [133]nd$
  402. 4465 dn$[178]"r0:"[170]nd$[170]"="[170]ad$
  403. 4470 [153]:[153][163]3)""ad$"wait= -> "nd$"wait"
  404. 4480 [159]1,8,15:[152]1.dn$:[160]1:[141]4000
  405. 4490 [137]4100
  406. 4500 [141]2300:dn%[178]8:[141]5000:[139]dr%[178]1[167][141]5140
  407. 4505 [153][199](147);ze$
  408. 4510 [153][163]3)"  str$iskette ascormatieren  ":[153]
  409. 4520 [133]"   (NULL)elchen (NULL)amen ->   ^cmdcmdcmd";nd$:[139]nd$[178]chr(94)[167]4100
  410. 4530 [153]:[133]"   (NULL)elche right$str$     -> ";id$:[139]id$[179][177]""[167]id$[178]","[170]id$
  411. 4540 dn$[178]nd$[170]id$:[153]:[153][163]3)"  str$iskette eingelegt ?"
  412. 4550 [153]:[153][163]8)"-> (NULL)aste str$ruecken <- "
  413. 4560 [159]1,8,15,"n:"[170]dn$:[160]1:[141]4000
  414. 4570 [137]4100
  415. 4600 [141]2300:dn%[178]8:[141]5000:[139]dr%[178]1[167][141]5140
  416. 4605 [153][199](147);ze$
  417. 4610 [153][163]3)"    str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL)close(NULL)val(NULL)val(NULL)    "
  418. 4620 [159]3,8,0,"$0":[161]#3,q$,q$
  419. 4630 [161]#3,q$,q$,bl$,bh$
  420. 4640 [139]q$[178]""[167][160]3:[141]4690:[137]4100
  421. 4650 bl$[178]bl$[170][199](0):bh$[178]bh$[170][199](0)
  422. 4660 [153]256[172][198](bh$)[170][198](bl$);
  423. 4670 [158]832:[137]4630
  424. 4680 [141]4690:[137]4100
  425. 4690 [153][163]7)"->  (NULL)atn(NULL)(NULL)val wait <-":[151]198,0:[146]198,1:[142]
  426. 5000 [151]2,dn%:[158]49152:[139][194](2)[178]0[167]dr%[178]1:[142]
  427. 5020 dr%[178]0
  428. 5030 [141]2300:[153][199](147);ze$:[153]:[153]
  429. 5040 [139]dn%[178]4[167]xy$[178]"str$(NULL)(NULL)len(NULL)val(NULL)"
  430. 5050 [139]dn%[178]8[167]xy$[178]"asc(NULL)(NULL)(NULL)(NULL)(NULL) "
  431. 5060 [129]i[178]0[164]5
  432. 5070 [153][163]4)" -> -> -> ";xy$;" <- <- <-    ":[129]a[178]0[164]40:[130]a:
  433. 5080 [153][163]4) " -> -> -> ";xy$;" <- <- <-    "
  434. 5090 [130]i
  435. 5100 [153]:[153]:[153]:[153]:[153][163]4)"chr$eraet peekitte valinschalten  !!"
  436. 5110 [153]:[153][163]4)"   (NULL)aste str$ruecken wenn (NULL)(NULL)   "
  437. 5120 [151]198,0:[146]198,1:[142]
  438. 5140 [159]1,8,15,"ui:":[160]1:[142]
  439. 5200 [129]i[178]49152[164]49185:[135]x:[151]i,x:[130]
  440. 5210 [131]169,1,160,192,162,33,32,189,255,169,1,160,15,166,2,32,186,255,32
  441. 5220 [131]192,255,176,2,169,0,133,2,169,1,32,195,255,96,32
  442. 5230 [129]i[178]0[164]23:[135]x:[151]832[170]i,x:[130]
  443. 5240 [131]162,3,32,198,255,32,207,255,32
  444. 5250 [131]210,255,208,248,169,13,32,210
  445. 5260 [131]255,76,204,255,0,0,0
  446. 5270 [142]
  447. 5300 [141]2300:[153][199](147)[199](14);ze$
  448. 5310 [153]:[153]:[153]:[153][163]15)"len(NULL)(NULL)(NULL)(NULL)right$chr$left$(NULL)"
  449. 5320 [153]:[153]:[153][163]18)"b y"
  450. 5330 [153]:[153]:[153][163]13)"mid$(NULL)val(NULL)chr$close(NULL)right$(NULL)(NULL)val(NULL)(NULL)close"
  451. 5340 [129]i[178]0[164]3500:[130]:[142]
  452. 5360 v1$[178]"":n1$[178]"":s1$[178]"":a$[178]"":p1$[178]"":bt$[178]"":as$[178]""::d$[178]"":sh$[178]""
  453. 5370 na[178]0:j[178]0:[137]130
  454.